program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  equat=class
    a, b, c: Integer;
    procedure Solut;
  end;

var
  eq1: equat;
{ equat }

procedure equat.Solut;
var
  d: Integer;
  x1, x2: real;
begin
  if (a<>0) then
  begin
    d:=b*b-4*a*c;
    if (d<0) then
      Writeln('There are no solutions');
    if (d=0) then
    begin
      x1:=(-b+sqrt(d))/(2*a);
      Writeln(x1:0:5);
    end;
    if (d>0) then
    begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      Writeln(x1:0:5);
      Writeln(x2:0:5);
    end;
  end else begin
    x1:=-c/b;
    Writeln(x1:0:5);
  end;

end;

begin
  eq1:=equat.Create;
  Readln(eq1.a);
  Readln(eq1.b);
  Readln(eq1.c);
  eq1.Solut;
  readln;
end.
